0 REM--AHOY!--MAY ISSUE--COMMODARES #5--PROG PAGE 92
1 REM << PROB 4-4 : RANDOM REPETITION
2 REM RVS ON=CHR$(18):RVS OFF=CHR$(146)
3 REM - FLAG IS TRUE (-1) WHEN PREVIOUS A% EQUALS PREVIOUS B%
5 FLAG=0
10 A%=RND(0)*10
20 B%=RND(0)*10
30 IF NOT FLAG THEN PRINT CHR$(146);
35 REM - LINES 40 & 50 DETERMINE THE NEXT STATE OF THE FLAG
40 FLAG=0
50 IF A%=B% THEN PRINT CHR$(18);:FLAG=-1
60 PRINT A%;
70 A%=B%
80 GOTO 20